10 OPEN1,4
20 PRINT#1,CHR$(27);CHR$(120);"1";:REM NLQ EIN
30 PRINT#1,CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);:REM ROM-ZEICHENSATZ INS RAM
40 PRINT#1,CHR$(27);"&";CHR$(0);"!!";:REM NEUE ZEICHEN VON A BIS A
50 FOR I =1 TO 47
60 :  READ X
70 :   PRINT#1,CHR$(X);
80 NEXT I
90 PRINT#1,CHR$(27);"%1";:REM RAM-ZEICHENSATZ EINSCHALTEN
100 PRINT#1,"STATT EINES AUSRUFE-ZEICHENS"
110 PRINT#1,"ERHAELT MAN 1/2 : !!! !!!"
120 CLOSE1
200 DATA 128:REM ATTRIBUT: KEINE UNTERLAENGE
210 DATA 17,64,18,224,20,0,24,0,16,9,32,1,66,1,132,9,0,0,0,0,0,0,0:REM 1.
220 DATA 0,2,128,100,0,8,0,16,0,32,16,66,16,132,16,8,0,0,0,0,0,0,0:REM 2.